
open output, ">$ARGV[0].info",or die "can not open the file $ARGV[0].info\n";

	$file = "$ARGV[0]";
	$match  = "csv";
	if ($file =~ /$match/) {
		open fin, "<$file",or die "can not open the $file\n";
		while(<fin>) {
			chomp;
			@info = split/\,/;
			
			print "@info\n";
			print output "@info\n";
		}
	}
	
close output;